'country listings 408 © COPYRIGHT 1990
TOP:
   GOTO START
2 :
   C$=LEFT$(CS$,1):
   W=1:T=XN-2:FL=0:UP=0:DWN=0:Y=0
3 : 
   X= INT (T/2)
 4 IF C$ = LEFT$(XX$(T),1) THEN GOTO 29
 5 IF C$ < LEFT$(XX$(T),1) THEN T = (T-X):X = INT(X/2):XL=1
 6 IF X = 0 AND XL = 1 THEN T = T - 1
 7 IF T < 1 THEN T = 0: GOTO 28
 8 IF T > XN-1 THEN T = 0: GOTO 28
 9 IF C$ > LEFT$(XX$(T),1) THEN T = (T+X):X = INT(X/2):XK=1
10 IF X=0 AND XK=1 THEN T=T+1
11 W=1
12 FL=FL+1: IF FL=20 THEN T=0: GOTO 18
13 IF T<1 THEN T=0: GOTO 28
14 IF T > XN-1 THEN T=0: GOTO 28
15 XL=0:XK=0: GOTO 4
16 IF C$= LEFT$(XX$(T),1) THEN GOTO 29
17 GOTO 22
18 IF C$ <> LEFT$(XX$(T),1) THEN 28
19 IF C$ = LEFT$(XX$(T),1) THEN GOTO 29
20 IF UP=1 THEN T=T+1: GOTO 18
21 IF DWN=1 THEN T=T-1: GOTO 18

22 IF FL THEN GOTO 4
28 LOCATE 12,5:PRINT "NO COUNTRY LISTED":RETURN
29 IC=T
COUNT1:   
   IF C$=LEFT$(XX$(IC),1) THEN IC=IC+1:GOTO COUNT1
   EN=IC:IC=T
COUNT2:
   IF C$=LEFT$(XX$(IC),1) THEN IC=IC-1:GOTO COUNT2
   SN=IC
   FOR I=SN TO EN
   IF LEFT$(CS$,3) = > XX$(I) AND LEFT$(CS$,3) = < L$(I) THEN GOTO BINGO
   NEXT I
   LOCATE 14,5:PRINT "NOTHING FOUND":RETURN
BINGO:   
   LOCATE 10,5:PRINT CS$;:PRINT " ";:PRINT H$(I)
   RETURN

 START:
DIM XX$(600):DIM L$(600):DIM H$(600)
FOR I = 1 TO 600
READ XX$(I),L$(I),H$(I) 
IF XX$(I) = "END" THEN XN=I: GOTO MAKEFILE
NEXT I
MAKEFILE:
LOCATE 4,5:PRINT "Type in: WRITE to SAVE data"
LOCATE 5,5:PRINT "Type in: PRINT to Print Country-listing"
LOCATE 6,5:PRINT "Type in: LOG to go to LOGBOOK"
LOCATE 8,5:INPUT"ENTER CALLSIGN ",CS$
IF CS$="WRITE" THEN GOTO WRITEFILE
IF CS$="PRINT" THEN GOTO PRINTFILE
IF CS$="LOG" THEN RUN "RADIO-LOG"
CLS
GOSUB 2
GOTO MAKEFILE


WRITEFILE:

OPEN "COUNTRY" FOR OUTPUT AS #1
WRITE #1,XN
FOR I = 1 TO XN
WRITE #1,XX$(I)
WRITE #1,L$(I)
WRITE #1,H$(I)
NEXT I
CLOSE #1
KILL "COUNTRY.INFO"
GOTO MAKEFILE

PRINTFILE:
CLS:LOCATE 10,1:INPUT "START=";START$:START=VAL(START$)
LOCATE 11,1:INPUT "FINISH=";FINISH$:FINISH=VAL(FINISH$)
FOR I =START TO FINISH
LPRINT I;:LPRINT TAB(8):LPRINT XX$(I);:LPRINT " ";:LPRINT L$(I);:LPRINT " ";:LPRINT H$(I)
NEXT I
GOTO MAKEFILE

DATA ///,///,/=CHR$(47)=1 LESS OF )0
DATA 1A0,1A0,S.M.O.of MALTA,1S0,1SZ,SPRATLY ISL
DATA 2A0,2ZZ,GREAT BRITAIN,3A0,3AZ,MONACO,3B0,3BZ,MAURITIUS
DATA 3C0,3CZ,EQUATORIAL GUINEA,3D0,3D9,FIJI
DATA 3DA,3DM,SWAZILAND,3DN,3DZ,FIJI,3E0,3FZ,PANAMA,3G0,3GZ,CHILI,3H0,3UZ,CHINA
DATA 3V0,3VZ,TUNISIA,3W0,3WZ,VIETNAM,3X0,3XZ,REP.OF GUINEA,3Y0,3YZ,NORWAY
DATA 3Z0,3ZZ,POLAND,4A0,4CZ,MEXICO,4D0,4IZ,PHILIPINES,4J0,4LZ,U.S.S.R,4M0,4MZ,VENUZUELA
DATA 4N0,4OZ,YUGOSLAVIA,4P0,4SZ,SRI LANKA,4T0,4TZ,PERU,4U0,4UZ,UNITED NATIONS
DATA 4V0,4VZ,HAITI,4W0,4WZ,YEMEN ARAB.REP.,4X0,4XZ,ISRAEL,4Y0,4YZ,INTERN.CIVIL AVIATION ORG.
DATA 4Z0,4ZZ,ISRAEL,5A0,5AZ,LIBYA,5B0,5BZ,CYPRUS,5C0,5GZ,MOROCCO,5H0,5IZ,TANZANIA
DATA 5J0,5KZ,COLOMBIA,5L0,5MZ,LIBERIA,5N0,5OZ,NIGERIA,5P0,5QZ,DENMARK,5R0,5SZ,MADAGASCAR
DATA 5T0,5TZ,MAURITANIA,5U0,5UZ,NIGER,5V0,5VZ,TOGO,5W0,5WZ,WESTERN SAMOA,5X0,5XZ,UGANDA
DATA 5Y0,5ZZ,KENYA,6A0,6BZ,EGYPT,6C0,6CZ,SYRIA,6D0,6JZ,MEXICO,6K0,6NZ,SOUTH KOREA
DATA 6O0,6OZ,SOMALE DEM.REP.,6P0,6SZ,PAKISTAN,6T0,6UZ,SUDAN,6V0,6WZ,SENEGAL
DATA 6X0,6XZ,MADAGASCAR,6Y0,6YZ,JAMAICA,6Z0,6ZZ,LIBERIA,7A0,7IZ,INDONESIA,7J0,7NZ,JAPAN
DATA 7O0,7OZ,PEOPLE'S DEM.REP.OF JEMEN,7P0,7PZ,LESOTHO,7Q0,7QZ,MALAWI,7RA,7RZ,ALGERIA
DATA 7S0,7SZ,SWEDEN,7T0,7YZ,ALGERIA,7Z0,7ZZ,SAUDI ARABIA,8A0,8IZ,INDONESIA
DATA 8J0,8NZ,JAPAN,8O0,8OZ,BOTSWANA,8P0,8PZ,BARBADOS,8Q0,8QZ,MALDIVES,8R0,8RZ,GUYANA
DATA 8S0,8SZ,SWEDEN,8T0,8YZ,INDIA,8Z0,8ZZ,SAUDI ARABIA,9A0,9AZ,SAN MARINO,9B0,9DZ,IRAN
DATA 9E0,9FZ,ETHIOPIA,9G0,9GZ,GHANA,9H0,9HZ,MALTA,9I0,9JZ,ZAMBIA,9K0,9KZ,KUWAIT
DATA 9L0,9LZ,SIERRA LEONE,9M0,9MZ,MALAYSIA,9N0,9NZ,NEPAL,9O0,9TZ,ZAIRE,9U0,9UZ,BURUNDI
DATA 9V0,9VZ,SINGAPORE,9W0,9WZ,MALAYSIA,9X0,9XZ,RWANDA,9Y0,9ZZ,TRINIDAD AND TOBAGO
DATA A20,A2Z,BOTSWANA,A30,A3Z,TONGA,A40,A4Z,SULTANATE OF OMAN,A50,A5Z,BHUTAN
DATA A60,A6Z,UNITED ARAB EMIRATES,A70,A7Z,QATAR,A80,A8Z,LIBERIA,A90,A9Z,BAHRAIN 
DATA AA0,ALZ,UNITED STATES OF AMERICA,AM0,AOZ,SPAIN,AP0,ASZ,PAKISTAN
DATA AT0,AWZ,INDIA,AX0,AXZ,AUSTRALIA,AY0,AZZ,ARGENTINA,BA0,BUZ,CHINA
DATA BV0,BVZ,TAIWAN,BW0,BZZ,CHINA
DATA C20,C2Z,NAURU,C30,C3Z,ANDORRA,C40,C4Z,CYPRUS,C50,C5Z,GAMBIA,C60,C6Z,BAHAMA
DATA C70,C7Z,WORLD METEOROLOGICAL ORG.,C80,C9Z,MOZAMBIQUE
DATA CA0,CDZ,CHILE,CE0,CE0,&,CE1,CE8,CHILI,CE9,CE9,ANTARCTICA-CHILE,CEA,CEZ,CHILE
DATA CF0,CKZ,CANADA,CL0,CMZ,CUBA,CN0,CNZ,MOROCCO
DATA CO0,COZ,CUBA,CP0,CPZ,BOLIVIA,CQ0,CQZ,PORTUGAL,CR3,CR3,GUINEA-BISSAU,CS0,CT2,PORTUGAL,CT3,CT3,MADEIRA ISL
DATA CU0,CUZ,AZORES ISL.,CV0,CXZ,URAQUAY
DATA CY0,CY0,SABLE ISL.,CY9,CY9,ST.PAUL ISL.,CYA,CZZ,CANADA,D20,D3Z,ANGOLA,D40,D4Z,CAPE VERDE,D50,D5Z,LIBERIA
DATA D60,D6Z,COMORES,D70,D9Z,SOUTH KOREA,DA0,DOZ,WEST GERMANY,DP0,DP0,ANTARCTICA (WEST GERMANY)
DATA DP1,DRZ,WEST GERMANY,DS0,DTZ,SOUTH KOREA
DATA DU0,DZZ,PHILIPPINES,EA0,EA5,SPAIN,EA6,EA6,BALEARIC ISL.,EA8,EA8,CANARY ISL.
DATA EA9,EA9,CEUTA-MELILLA,EAA,EHZ,SPAIN,EI0,EJZ,IRELAND,EK0,EKZ,U.S.S.R
DATA EL0,ELZ,LIBERIA,EM0,EOZ,U.S.S.R,EP0,EQZ,IRAN,ER0,ESZ,U.S.S.R
DATA ET0,ETZ,ETHIOPIA,EU0,EWZ,BIELORUSSIAN S.S.R,EX0,EZZ,U.S.S.R
DATA F00,FEZ,FRANCE,FG0,FGZ,GUADELOUPE,FH0,FHZ,MAYOTTE,FJ0,FJZ,FRENCH ST.MARTIN
DATA FK0,FKZ,NEW CALADONIA,FL0,FLZ,DJIBOUTI,FM0,FMZ,MARTINIQUE,FO0,FOZ,CLIPPERTON ISL -OR- FRENCH OCEANA
DATA FP0,FPZ,ST.PIERRE-MIQUELON ISL.,FR0,FRZ,&,FS0,FSZ,FRENCE ST.MARTIN
DATA FT0,FTZ,&,FW0,FWZ,WALLIS-FUTUNA ISL.,FY0,FYZ,FRENCH GUIANA,G00,GBZ,GREAT BRITAIN
DATA GC0,GCZ,JERSEY IS. or GURNSEY IS,GD0,GDZ,ISLE OF MAN,GI0,GIZ,NOTHERN IRELAND,GJ0,GJZ,JERSEY ISL
DATA GM0,GMZ,SCOTLAND,GT0,GTZ,ISLE OF MAN,GU0,GUZ,GUERNSEY,GW0,GWZ,WALES
DATA H20,H2Z,CYPRUS,H30,H3Z,PANAMA,H40,H4Z,SOLOMON,H60,H7Z,NICARAGUA,H80,H9Z,PANAMA
DATA HA0,HAZ,HUNGARY,HB0,HB0,LIECHTENSTEIN,HB1,HBZ,SWITZERLAND,HC0,HC7,ECUADOR,HC8,HD8,GALAPAGOS ISL.
DATA HD9,HDZ,ECUADOR,HE0,HEZ,SWITSERLAND
DATA HF0,HFZ,POLAND,HG0,HGZ,HUNGARY,HH0,HHZ,HAITI,HI0,HIZ,DOMINICAN REP.
DATA HJ0,HJZ,COLUMBIA,HK0,HK0,MALPELO ISL. -OR- SAN ANDREAS,HK1,HKZ,COLOMBIA,HL0,HLZ,SOUTH KOREA,HM0,HMZ,NORTH KOREA,HN0,HNZ,IRAQ
DATA HO0,HPZ,PANAMA,HQ0,HRZ,HONDURAS,HS0,HSZ,THAILAND,HT0,HTZ,NICARAGUA
DATA HU0,HUZ,EL SALVADOR,HV0,HVZ,VATICAN,HW0,HYZ,FRANCE AND FRENCH COMMUNITY
DATA HZ0,HZZ,SAUDI ARABIA,I00,IRZ,ITALY,IS0,ISZ,SARDINIA,IT0,ITZ,ITALY,J20,J2Z,DJIBOUTI,J30,J3Z,GRENADA
DATA J40,J4Z,GREECE,J50,J5Z,GUINEA-BISSAU,J60,J6Z,ST.LUCIA,J70,J7Z,COMMONWEALTH OF DOMINIVCA
DATA J80,J8Z,ST.VINCENT & THE GRANADINUS,JA0,JCZ,JAPAN,JD0,JDZ,MINAMI or OGASAWARI,JE0,JSZ,JAPAN,JT0,JVZ,MONGOLIA
DATA JW0,JWZ,BEAR ISL. SVALBARD,JX0,JXZ,JAN MAYEN,JY0,JYZ,JORDAN,JZ0,JZZ,INDONESIA
DATA KA0,KC3,U.S.A (JAPAN),KC4,KC4,ANTARTICA (U.S.A.)
DATA KC6,KC6,EAST or WEST CAROLINE ISL.,KG4,KG4,GUANTANAMO BAY,KG6,KG6,GUAM or MARIANA ISL.,KH0,KH0,NORTHERN MARINAS,KH1,KH1,BAKER - HOWLAND ISL.
DATA KH2,KH2,GUAM ISL.,KH3,KH3,JOHNSTON ISL.,KH4,KH4,MIDWAY ISL.
DATA KH5,KH5,PALMYRA GROUP-JARVIS ISL.,KH6,KH6,HAWAIIAN ISL.,KH7,KH7,KURI ISL.
DATA KH8,KH8,AMERICAN SOMOA,KH9,KH9,WAKE ISL.,KJ0,KJZ,JOHNSTON ISL.,KL7,KL7,ALASKA,KM0,KMZ,MIDWAY ISL,KP1,KP1,NAVASSA ISL.
DATA KP2,KP2,VIRGINS ISL.,KP4,KP4,PUERTO RICO,KP5,KP5,DESECHEO ISL.,KX6,KX6,MARSHALL ISL.
DATA L20,L9Z,ARGENTINA,LA0,LNZ,NORWAY,LO0,LWZ,ARGENTINA,LX0,LXZ,LUXEMBURG,LY0,LYZ,U.S.S.R
DATA LZ0,LZZ,BULGARIA,MA0,MZZ,GREAT BRITAIN,N00,NZZ,U.S.A,OA0,OCZ,PERU
DATA OD0,ODZ,LEBANON,OE0,OEZ,AUSTRIA,OF0,OGZ,FINLAND,OH0,OH0,ALAND ISL.- FINLAND,OH1,OIZ,FINLAND,OJ0,OJZ,MARKET REEF,OK0,OMZ,CZECHOSLOVAKIA
DATA ON0,OTZ,BELGIUM,OU0,OVZ,DENMARK,OX0,OXZ,GREENLAND,OY0,OYZ,FAROE ISL.,OZ0,OZZ,DENMARK,P20,P2Z,PAPUA NEW GUINEA,P30,P3Z,CYPRES
DATA P40,P4Z,ARUBA,P50,P9Z,NORTH KOREA,PA0,PIZ,NETHERLANDS,PJ0,PJZ,NETHERLANDS ANTILLES
DATA PK0,POZ,INDONESIA,PP0,PXZ,BRAZIL,PY0,PY0,BRAZIL - ISLANDS ETC.,PY1,PYZ,BRAZIL,PZ0,PZZ,SURINAM
DATA RA1,RA1,U.S.S.R -OR- FRANZ JOSEF ISL.,RA2,RA8,U.S.S.R
DATA RA9,RA9,ASIATIC R.S.F.S.R,RB0,RBZ,UKRAINE,RC0,RCZ,WHITE RUSSIAN S.S.R
DATA RD0,RDZ,AZERBAIJAN,RF0,RFZ,GEOGIA,RG0,RGZ,ARMENIA,RH0,RHZ,TURKOMAN
DATA RI0,RIZ,UZBEC,RJ0,RJZ,TADZHIK,RL0,RLZ,KAZAKH,RM0,RMZ,KIRGHIZ,RO0,ROZ,MOLDAVIA
DATA RP0,RPZ,LITHUANIA,RQ0,RQZ,LATVIA,RR0,RRZ,ESTONIA,RT0,RTZ,UKRAINE,RU0,RZZ,U.S.S.R
DATA S20,S3Z,BANGLADESH,S60,S6Z,SINGAPORE,S70,S7Z,SEYCHELLES,S90,S9Z,SOA TOME AND PRINCIPLE
DATA SA0,SMZ,SWEDEN,SN0,SRZ,POLAND,SS0,SSM,EGYPT,SSN,STY,SUDAN,ST0,ST1,SOUTH SUDAN,ST2,STZ,SUDAN,SU0,SUZ,EGYPT
DATA SV0,SZZ,GREECE,T20,T2Z,TUVALU,T30,T3Z,KIRIBATI,T40,T4Z,CUBA
DATA T50,T5Z,SOMALI DEM.REP.,T60,T6Z,AFGANISTAN,T70,T7Z,SAN MARINO,TA0,TCZ,TURKEY,TD0,TDZ,GUATEMALA
DATA TE0,TEZ,COSTA RICA,TF0,TFZ,ICELAND,TG0,TGZ,GUATEMALA,TH0,THZ,FRENCE AND FRENCH COMMUNITY
DATA TI0,TIZ,COSTA RICA,TJ0,TJZ,CAMEROON,TK0,TKZ,FRANCE AND FRENCH COMMUNITY
DATA TL0,TLZ,CENTRAL AFRICA REP.,TM0,TMZ,FRANCE AND FRENCH COMMUNITY
DATA TN0,TNZ,CONGO,TO0,TQZ,FRANCE AND FRENCH COMMUNITY,TR0,TRZ,GABON,TS0,TSZ,TUNISIA
DATA TT0,TTZ,CHAD,TU0,TUZ,IVORY COAST,TV0,TXZ,FRANCE AND FRENCH COMMUNITY
DATA TY0,TYZ,BENIN,TZ0,TZZ,MALI,UA0,UA0,U.S.S.R
DATA UA1,UA1,U.S.S.R -OR- FRANZ JOSEF ISL.,UA2,UA8,U.S.S.R
DATA UA9,UA9,ASIATIC R.S.F.S.R,UB0,UBZ,UKRAINE,UC0,UCZ,WHITE RUSSIAN S.S.R
DATA UD0,UDZ,AZERBAIJAN,UF0,UFZ,GEORGIA,UG0,UGZ,ARMENIA,UH0,UHZ,TURKOMAN
DATA UI0,UIZ,UZBEC,UJ0,UJZ,TADZHIK,UL0,ULZ,KAZAKH,UM0,UMZ,KIRGHIZ,UO0,UOZ,MOLDAVIA
DATA UP0,UPZ,LITHUANIA,UQ0,UQZ,LATVIA,UR0,URZ,ESTONIA,UT0,UTZ,UKRAINE,UU0,UZZ,U.S.S.R
DATA V20,V2Z,ANTIGUA,V30,V3Z,BELIZE,V40,V4Z,ST.CHRISTOPHER & NEVIS
DATA V80,V8Z,BRUNEI,VA0,VE0,CANADA,VE1,VE1,SABLE ISL. -OR- ST.PAUL ISL.
DATA VE2,VGZ,CANADA,VH0,VJZ,AUSTRALIA,VK0,VK0,ANTARTICA -OR- ISL. (AUSTR.)
DATA VK1,VK1,AUSTRALIA (A.C.T.),VK2,VK2,AUSTRALIA (N.S.W.),VK3,VK3,AUSTRALIA (VIC.)
DATA VK4,VK4,AUSTRALIA (QLD),VK5,VK5,AUSTRALIA (W.A.),VK6,VK6,AUSTRALIA (W.A.)
DATA VK7,VK7,AUSTRALIA (TAS.),VK8,VK8,AUSTRALIA (N.T.),VK9,VK9,AUSTRALIAN ISL.
DATA VKA,VNZ,AUSTRALIA,VO0,VOZ,CANADA,VP0,VSZ,BRITISH OVERSEAS TERRITORIES
DATA VT0,VWZ,INDIA,VX0,VX8,CANADA,VX9,VX9,SABLE ISL.,VXA,VXZ,CANADA,VY0,VY0,ST.PAUL ISL.
DATA VZ0,VZZ,AUSTRALIA,W00,WZZ,U.S.A,XA0,XIZ,MEXICO,XJ0,XOZ,CANADA
DATA XP0,XPZ,DENMARK,XQ0,XRZ,CHILE,XS0,XSZ,CHINA,XT0,XTZ,BURKINA FASO
DATA XU0,XUZ,KHMER REP.,XV0,XVZ,VIETNAM,XW0,XWZ,LAOS,XX0,XXZ,PORTUGUESE OVERSEAS PROVINCES
DATA XY0,XZZ,BURMA,Y20,Y9Z,EAST GERMANY
DATA YA0,YAZ,AFGANISTAN,YB0,YHZ,INDONESIA,YI0,YIZ,IRAQ
DATA YJ0,YJZ,VANUATU,YK0,YKZ,SYRIA,YL0,YLZ,U.S.S.R,YM0,YMZ,TURKEY,YN0,YNZ,NICARAGUA
DATA YO0,YRZ,RUMANIA,YS0,YSZ,EL SALVADOR,YT0,YUZ,YUGOSLAVIA,YV0,YYZ,VENEZUELA
DATA YZ0,YZZ,YUGOSLAVIA,Z20,Z2Z,ZIMBABWE
DATA ZA0,ZAZ,ALBANIA,ZB0,ZJZ,BRITISH OVERSEAS TERRITORIES
DATA ZK0,ZMZ,NEW ZEALAND,ZN0,ZOZ,BRITISH OVERSEAS TERRITORIES,ZP0,ZPZ,PARAGUAY
DATA ZQ0,ZQZ,BRITISH OVERSEAS TERRITORIES,ZR0,ZUZ,REP.OF SOUTH AFRICA
DATA ZV0,ZZZ,BRAZIL,[[[,[[[,[=CHR$(91)=1 MORE OF Z,END,END,END,END,END,END,END,END,END